home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / comm / irc / NetStat2AmIRC.lha / n2a.amirx next >
Text File  |  1999-02-16  |  1KB  |  25 lines
  1. /* 
  2.     NetStat2AmIRC Version 1.0
  3.     Compilation date: 16-Feb-1999.
  4.     © 1999 Frank Meyer-Pfauder.
  5. */
  6.  
  7. file="Miami:MiamiNetStat"
  8. advanced="N"
  9.  
  10. actad=ADDRESS();IF ~show('P','MIAMI.1') THEN DO
  11. CALL OUTPUT("Ooops... Miami is not running.");EXIT;END;ADDRESS(MIAMI.1)
  12. ISONLINE;ADDRESS(actad);IF rc=0 THEN DO
  13. CALL OUTPUT("Sorry... you are not online.");EXIT;END;IF exists(file) THEN DO
  14. IF advanced="Y" THEN address command file '>t:oports.dat -aN';ELSE
  15. address command file '>t:oports.dat -N';IF open(log,'T:oports.dat','R') THEN DO
  16. DO UNTIL EOF(log);actline=readln(log)
  17. IF FIND(actline,'Active Internet')>0 THEN DO
  18. CALL OUTPUT("NetStat2AmIRC - "actline"...");END;ELSE DO
  19. IF FIND(actline,'Proto')>0 THEN DO
  20. actline=d2c(2)||SUBWORD(actline,1,1)||"  "||SUBWORD(actline,4);END;ELSE
  21. actline=SUBWORD(actline,1,1)||"    "||SUBWORD(actline,4);CALL OUTPUT(actline)
  22. END;END;IF CLOSE(log) THEN DO;CALL OUTPUT("--")
  23. address command 'delete T:oports.dat quiet';END;END;END;EXIT;output:
  24. parse arg text;"echo C=1 P="d2c(27)"b«NetStat» "text;RETURN
  25.